home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 5 / Amiga Plus Sonderheft 1996 #5.iso / programme / imagedesk304 / imagedesk / instdata.lha / instdata / rexx / Default.DeletePic_M.IDesk < prev    next >
Text File  |  1996-03-04  |  2KB  |  79 lines
  1. /* ARexx-Skript for Image Desk   */
  2. /* Version 1.3 vom 03.03.96      */
  3. /* Wuensche und anregungen an :  */
  4. /* BerndW@trashcan.mcnet.de      */
  5.  
  6. /* Das Skript loescht das Bild im Catalog und das Bild             */
  7. /* selbst, mit sicherheitsabfrage, AB VERSION 3.00                 */
  8.  
  9. /* Funktioniert nur vom Desk mit Aktuellen Catalog !!              */
  10. /* Nach dem Loeschen muss der Katalog jedoch noch gesichert werden */
  11.  
  12. OPTIONS RESULTS
  13. PARSE ARG iname itype ipos
  14.  
  15. ADDRESS IDESK_REXXPORT
  16.  
  17. /* Requester Tool */
  18.  
  19. /* Libs Oeffnen */
  20.  
  21. IF ~SHOW(L,"rexxreqtools.library") THEN DO
  22.    CALL ADDLIB("rexxreqtools.library",0,-30,0)
  23.     END
  24.  
  25.  
  26. /* Var-Init */
  27. RTags = "rt_reqpos=reqpos_centerscr rt_pubscrname=IMAGEDESK"
  28.  
  29.  
  30. GETSYSINFO CATNAME
  31. catalog = result
  32.  
  33.  
  34. /* loeschen des eintrages im Catalog */
  35. /* name holen */
  36. IF LASTPOS("/",iname) ~= 0 THEN DO
  37.     bname = right(iname,(LENGTH(iname)-LASTPOS("/",iname)))
  38. end
  39. ELSE DO
  40.     bname = right(iname,(LENGTH(iname)-LASTPOS(":",iname)))
  41. END
  42.  
  43. /* Aufruf */
  44.  
  45. NL = '0a'x
  46. text = "Delete Picture "||NL||NL||"Catalog :"||catalog||NL||"Picture :"||bname||NL
  47.  
  48. abfrage:
  49. erg =rtezrequest(''text'',"_OK|_Show|_Abruch","IDesk Delete",RTags)
  50.  
  51. if erg == 0 then do
  52.  text = "Moechten Sie ein Reload Starten ?"
  53.  erg =rtezrequest(''text'',"_Ja|_Nein","IDesk Reload",RTags)
  54.  if erg == 1 then do
  55.   RELOADCAT
  56.  end 
  57.  exit
  58. end
  59.  
  60. if erg == 2 then do
  61.    VIEWIMAGE '"'iname'"'
  62.     call abfrage
  63. end
  64.     
  65. GETBUFPOS '"'bname'"'
  66. posi = result
  67. REMFROMBUF '"'posi'"'
  68. REDRAW
  69.  
  70. /* loeschen des Bildes */
  71. ADDRESS COMMAND
  72. C:DELETE '"'iname'"'
  73. ADDRESS IDESK_REXXPORT
  74.  
  75.  
  76.  
  77.  
  78.  
  79.